home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / dev / lang / amigapascal.lha / AmigaPascal / Examples / Example1 < prev   
Encoding:
Text File  |  1993-03-31  |  163 b   |  17 lines
  1. PROGRAM Fibonacci
  2.  
  3. VAR a,b,c: INTEGER
  4.  
  5. BEGIN
  6.   a := 1
  7.   b := 0
  8.   c := 46
  9.   WHILE c DO
  10.   BEGIN
  11.     WRITELN a
  12.     a := a + b
  13.     b := a - b
  14.     c := c - 1
  15.   END
  16. END
  17.